home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).do / START.FIREFLIES.bas < prev    next >
BASIC Source File  |  1996-12-24  |  5KB  |  88 lines
  1. 2  TEXT 
  2. 5  GOSUB 1000
  3. 10  HOME 
  4. 15  HTAB 8
  5. 20  PRINT "FIREFLIES INSTRUCTIONS"
  6. 25  PRINT : HTAB 7
  7. 30  PRINT "BY DAN TOBIAS, JULY 1982"
  8. 40  PRINT 
  9. 50  PRINT "THE OBJECT OF THE GAME IS TO CATCH": PRINT 
  10. 60  PRINT "FIREFLIES BY MOVING YOUR COLLECTION JAR"
  11. 70  PRINT : PRINT "AROUND THE HI-RES SCREEN."
  12. 80  PRINT : PRINT "YOU ALSO HAVE TO WATCH OUT FOR THE"
  13. 90  PRINT : PRINT "MUTANT KILLER FIREFLY."
  14. 100  PRINT : PRINT : PRINT "THE GAME STARTS WITH 5 FIREFLIES ON THE"
  15. 110  PRINT : PRINT "SCREEN.  THEY MAY WANDER OFF THE SCREEN"
  16. 120  PRINT : PRINT "AND MAY WANDER BACK ON.  ALL ARE LIT"
  17. 130  PRINT : PRINT "HALF THE TIME AND ARE INVISIBLE THE REST";
  18. 135  PRINT 
  19. 140  INVERSE : PRINT "HIT ANY KEY TO CONTINUE.               ";: GET I$: HOME : NORMAL 
  20. 150  PRINT "OF THE TIME.  TO CATCH THEM, USE THE"
  21. 160  PRINT : PRINT "FOLLOWING KEYS:"
  22. 170  PRINT : PRINT "  I             : MOVE UP": PRINT "  J             : MOVE LEFT"
  23. 180  PRINT "  K             : MOVE RIGHT": PRINT "  M             : MOVE DOWN"
  24. 190  PRINT "  SPACE BAR     : CATCH FIREFLIES"
  25. 200  PRINT "  L             : SET SPEED TO FAST"
  26. 210  PRINT "  H             : SET SPEED TO SLOW"
  27. 220  PRINT "  ANY OTHER KEY : STOP MOVING"
  28. 230  PRINT 
  29. 240  PRINT "WHEN YOU HIT A MOVEMENT KEY (I,J,K,M),"
  30. 250  PRINT : PRINT "YOU WILL KEEP MOVING UNTIL YOU HIT"
  31. 260  PRINT : PRINT "A NON-COMMAND KEY OR THE SPACE BAR, OR"
  32. 270  PRINT : PRINT "YOU REACH THE EDGE OF THE SCREEN."
  33. 280  INVERSE : PRINT : PRINT "HIT ANY KEY TO CONTINUE.               ";: GET I$: HOME : NORMAL 
  34. 290  PRINT "WHEN YOU HIT THE SPACE BAR, ALL"
  35. 300  PRINT : PRINT "FIREFLIES WITHIN THE JAR SHOWN ON THE"
  36. 310  PRINT : PRINT "SCREEN, WHETHER LIT OR NOT, WILL BE"
  37. 320  PRINT : PRINT "CAUGHT.  YOU SCORE 10 POINTS EACH."
  38. 330  PRINT : PRINT : PRINT "YOU MUST CATCH ALL FIREFLIES ON THE"
  39. 340  PRINT : PRINT "SCREEN BEFORE THE TIME RUNS OUT.  YOU"
  40. 350  PRINT : PRINT "NEED NOT NECESSARILY CATCH ALL THE"
  41. 360  PRINT : PRINT "FIREFLIES WHICH APPEARED ORIGINALLY;"
  42. 370  PRINT : PRINT "IF SOME WANDER OFF THE SCREEN YOU NEED"
  43. 380  PRINT : PRINT "NOT CATCH THEM.  HOWEVER, IF THEY FLY"
  44. 390  PRINT : PRINT "BACK ONTO THE SCREEN YOU MUST CATCH"
  45. 395  INVERSE : PRINT : PRINT "HIT ANY KEY TO CONTINUE                ";: GET I$: HOME : NORMAL 
  46. 400  PRINT "THEM.  WHEN THERE ARE NONE LEFT ON THE"
  47. 410  PRINT : PRINT "SCREEN, THE ROUND ENDS, AND YOU SCORE A"
  48. 420  PRINT : PRINT "BONUS OF 50 POINTS PLUS THE NUMBER OF"
  49. 430  PRINT : PRINT "TIME UNITS REMAINING.  IN ADDITION, IF"
  50. 440  PRINT : PRINT "YOU CATCH ALL THE FIREFLIES WITHOUT"
  51. 450  PRINT : PRINT "ANY ESCAPING OFF THE SCREEN, YOU GET"
  52. 455  PRINT : PRINT "ANOTHER 100 POINTS."
  53. 457  PRINT : PRINT "THEN, A NEW ROUND STARTS.  EACH ROUND": PRINT : PRINT "HAS 5 MORE FIREFLIES TO CATCH THAN"
  54. 460  PRINT : PRINT "THE LAST, UP TO 30 FIREFLIES.  AFTER": PRINT : PRINT "THAT, IT REMAINS AT 30 FOR ALL FUTURE"
  55. 462  PRINT : INVERSE : PRINT "HIT ANY KEY TO CONTINUE.               ";: GET I$: HOME : NORMAL 
  56. 464  PRINT "ROUNDS.  AS THE NUMBER OF BUGS YOU MUST": PRINT : PRINT "CATCH INCREASES, THE TIME YOU HAVE TO"
  57. 466  PRINT : PRINT "DO IT IN ALSO INCREASES."
  58. 468  PRINT : PRINT : PRINT "BUT THERE'S ANOTHER PROBLEM.  THE MUTANT": PRINT "KILLER FIREFLY WILL SHOW UP EACH"
  59. 470  PRINT : PRINT "ROUND.  YOU CAN TELL IT'S THERE BY ITS": PRINT : PRINT "CHARACTERISTIC BUZZ.  ITS STING IS"
  60. 472  PRINT : PRINT "FATAL, BUT IT ONLY STINGS RIGHT AFTER": PRINT : PRINT "IT MOVES, WHICH IS RIGHT AFTER IT"
  61. 474  PRINT : PRINT "BUZZES.  IN BETWEEN, YOU CAN CATCH IT,": PRINT : PRINT "AND IT IS WORTH 500 POINTS.": PRINT : INVERSE : PRINT "HIT ANY KEY TO CONTINUE.               ";: GET I$: HOME : NORMAL 
  62. 475  PRINT "WARNING: IT FOLLOWS YOU, UNLIKE THE"
  63. 476  PRINT : PRINT "NORMAL FIREFLIES, WHICH MOVE AT RANDOM."
  64. 477  PRINT : PRINT "LIKE THE FIREFLIES, THE KILLER BUG WILL": PRINT : PRINT "BE LIT HALF THE TIME AND INVISIBLE"
  65. 478  PRINT : PRINT "THE REST."
  66. 479  PRINT : PRINT : PRINT "TO PAUSE THE GAME TYPE CTRL-S; HIT ANY": PRINT : PRINT "KEY TO RESUME."
  67. 480  INVERSE : PRINT : PRINT "HIT ANY KEY TO CONTINUE.               ";: GET I$: HOME : NORMAL 
  68. 485  PRINT 
  69. 490  PRINT "THE HIGH SCORES ARE SAVED USING THE SAME"
  70. 500  PRINT "ROUTINE USED IN CALC-MAN.  THE ALLTIME"
  71. 510  PRINT : PRINT "TOP TEN SCORES ARE SAVED ON DISK, AND"
  72. 520  PRINT : PRINT "THE TOP 10 FOR THE CURRENT SESSION ARE"
  73. 530  PRINT : PRINT "ALSO LISTED.  PLEASE DO NOT EXIT THE"
  74. 540  PRINT : PRINT "PROGRAM WITH RESET, CTRL-C, OR BY"
  75. 550  PRINT : PRINT "TURNING THE COMPUTER OFF.  THE HIGH"
  76. 560  PRINT : PRINT "SCORES ARE ONLY SAVED TO DISK WHEN YOU"
  77. 570  PRINT : PRINT "USE THE 'Q' OPTION AT THE END OF THE"
  78. 580  PRINT : PRINT "GAME.  BE SURE THE PROPER DISK IS IN THE": PRINT "DRIVE AT THAT POINT."
  79. 590  PRINT : INVERSE : PRINT "HIT ANY KEY TO START.                  ";: GET I$: HOME : PRINT 
  80. 595  NORMAL 
  81. 600  PRINT "<CTRL-D>RUN FIREFLIES"
  82. 1000  HOME 
  83. 1010  VTAB 8: HTAB 12
  84. 1020  PRINT "F I R E F L I E S"
  85. 1030  PRINT : PRINT "     BY DANIEL TOBIAS    JULY 1982"
  86. 1040  PRINT : HTAB 6: INPUT "INSTRUCTIONS (Y/N) ?";I$
  87. 1050  IF  LEFT$(I$,1) < >"Y"  THEN  PRINT "<CTRL-D>RUN FIREFLIES"
  88. 1060  RETURN